Namespace HBBSoft.Pivot
    <System.Serializable()> Public NotInheritable Class Measure
        Dim _ID As String
        Friend ReadOnly Property ID() As String
            Get
                Return _ID
            End Get
        End Property

        Dim _Name As String
        Public Property Name() As String
            Get
                Return _Name
            End Get
            Set(ByVal value As String)
                _Name = value
            End Set
        End Property

        Dim _Caption As String
        Public Property Caption() As String
            Get
                Return _Caption
            End Get
            Set(ByVal value As String)
                _Caption = value
            End Set
        End Property

        Dim _DisplayModels As New MeasuresDisplayModelCollection
        Public ReadOnly Property DisplayModels() As MeasuresDisplayModelCollection
            Get
                Return _DisplayModels
            End Get
        End Property

        Friend Sub New(ByVal ID As Integer)
            _ID = ID
        End Sub
        Private Sub New()
        End Sub
    End Class



End Namespace
